home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_00 / powdemo9.bas < prev    next >
BASIC Source File  |  1995-01-01  |  493b  |  24 lines
  1. $string 32
  2. $link "pow.pbl"
  3. $include "pow.inc"
  4.  
  5. 'POW! Demo #9 - Repeater - uses foreground sampling and playback
  6.  
  7. cls:print
  8. print "POW! Repeater (Talking Parrot Clone)"
  9. print
  10. input "Trigger Level (129-200), try 132: ";tl%
  11. sz%=9000  'Sample length
  12. sbreset
  13. print:print "Talk into the microphone... any key to end."
  14. do
  15.     a%=sbsamplebyte
  16.      if a%>=tl% then
  17.          s$=sbsample$(sz%,35)
  18.           sbplaystring s$,int(50*rnd(1))+1
  19.      end if
  20.      if inkey$<>"" then end
  21. loop
  22.  
  23.  
  24.